home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Leser 19
/
Amiga Plus Leser CD 19.iso
/
Tools
/
ShareMailGiftware
/
Videokonverter
/
Videokonverter
< prev
next >
Wrap
Text File
|
2002-10-03
|
5KB
|
232 lines
G4C
WinBig -1 -1 800 500 "Videokonverter © 2002 Carsten Siegner"
WinType 11110011
;Winbackground Image Hintergrund ""
ResInfo 13 1024 768
xOnLoad
;LoadImage Hintergrund-fertig.iff Hintergrund Workbench
GuiOpen #this
xOnClose
GuiQuit #this
winfont helvetica.font 11 000
;------------------------------------
;-------------------------------------
xlistview 15 20 200 150 "Eingang" B "Work:" 1 dir
;-------------------------------------
;-------------------------------------
delvar scl
delvar .Verzeichnis
searchvar B : ci first
setvar pos $$SEARCH.POS
setvar len $$SEARCH.LENGTH
cutvar B cut char $pos Root
cutvar B cut char $((0 - ($len - $pos )) + 1) .Verzeichnis
setvar scl /
appvar scl $Root
appvar scl /
appvar scl $.Verzeichnis
;-------------------------------------
xbutton 125 175 40 20 Audio
setvar input 1
setvar stream1 $scl
update #this 3 $scl
xbutton 170 175 40 20 Video
setvar input 2
setvar stream2 $scl
update #this 1 $scl
;----------------------------------
xbutton 70 175 50 20 Laufw.
lvdir disks
xbutton 15 175 50 20 Mutterv.
lvdir parent
xtextin 45 200 170 20 Video $stream2 "" 80
gadid 1
setvar video $$TI.REC
xtextin 45 230 170 20 Audio $stream1 "" 80
gadid 3
setvar audio $$TI.REC
;--------------------------------------
delvar scl2
;--------------------------------------
xlistview 250 20 200 150 "Ausgang" A "Work:" 1 dir
;-------------------------------------
delvar .Verzeichnis2
setvar dir $$LV.DIR
searchvar dir : ci first
setvar pos2 $$SEARCH.POS
setvar len2 $$SEARCH.LENGTH
cutvar dir cut char $pos2 Root2
cutvar dir cut char $((0 - ($len2 - $pos2 )) + 1) .Verzeichnis2
setvar scl2 /
appvar scl2 $Root2
appvar scl2 /
appvar scl2 $.Verzeichnis2
appvar scl2 /xxxxxxx-Datei
;-------------------------------------
update #this 4 $scl2
xtextin 280 200 170 20 Datei $scl2 "" 80
gadid 4
setvar text $$TI.REC
xbutton 350 175 50 20 Laufw.
lvdir disks
xbutton 290 175 50 20 Mutterv.
lvdir parent
;--------------------------------------
Line 0 260 500 260 7
Line 500 0 500 450 7
Line 500 450 797 450 7
;-------------------------------------
xlistview 520 20 100 150 "Eingangformat" A lister.txt 1 show
setvar format1 $$LV.REC
update #this 5 $format1
xlistview 650 20 100 150 "Ausgangformat" A lister-2.txt 1 show
setvar format2 $$LV.REC
update #this 6 $format2
xlistview 520 200 100 150 "Eingangcodec" A lister-codec.txt 1 show
setvar codec1 $$LV.REC
update #this 7 $codec1
xlistview 650 200 100 150 "Ausgangcodec" A lister-codec2.txt 1 show
setvar codec2 $$LV.REC
update #this 8 $codec2
;----------------------------------------------
xtextin 100 300 90 20 Eingangformat $format1 "" 80
gadid 5
xtextin 100 330 90 20 Ausgangformat $format2 "" 80
gadid 6
xtextin 100 360 90 20 Eingangcodec $codec1 "" 80
gadid 7
xtextin 100 390 90 20 Ausgangcodec $codec2 "" 80
gadid 8
;---------------------------------------------
xcheckbox 470 270 20 20 "Getrennte Eingangsdateien" ge 1 0 off
xcheckbox 470 295 20 20 " Nutze Formatrequester Eingang" nfe 1 0 off
xcheckbox 470 320 20 20 "Nutze Codecrequester Eingang" nce 1 0 off
xcheckbox 470 345 20 20 "Nutze Formatrequester Ausgang" nfa 1 0 off
xcheckbox 470 370 20 20 "Nutze Codecrequester Ausgang" nca 1 0 off
xcheckbox 470 395 20 20 "Ausgangsvideo scalieren" as 1 0 off
xcheckbox 470 420 20 20 "Ausgangsvideo glätten" agg 1 0 off
xcheckbox 470 445 20 20 "Ausgangsvideo ist für eine VideoCD" vcd 1 0 off
xtextin 660 465 90 20 "Bildgröße = Breite x Höhe" scale "" 80
xcycler 660 360 40 20 "Audiokanäle" aud
cstr 2 2
cstr 1 1
xcycler 660 390 60 20 "Audiobitrate in kbit/s" aub
cstr 192 192
cstr 224 224
cstr 256 256
cstr 56 56
cstr 64 64
cstr 96 96
cstr 112 112
cstr 128 128
xcycler 660 420 70 20 "Audiosamplingrate in Hz" aus
cstr 44100 44100
cstr 48000 48000
cstr 22050 22050
;-------------------------------------------
xbutton 150 450 100 20 Abruch
breaktask ffmpeg c
xbutton 20 450 100 20 Konvertieren
setstack 1000000
if $nfe = 0
or $nfe = ""
delvar format-i
endif
if $nfe = 1
setvar format-i "-f $format1"
endif
if $nce = 0
or $nce = ""
delvar codec-i
endif
if $nce = 1
setvar codec-i "-vcodec $codec1"
endif
if $nfa = 0
or $nfa = ""
delvar format-a
endif
if $nfa = 1
setvar format-a "-f $format2"
endif
if $nca = 0
or $nca = ""
delvar codec-a
endif
if $nca = 1
setvar codec-a " -vcodec $codec2"
endif
if $as = 0
or $as = ""
delvar scale1
endif
if $aud = ""
setvar kanal "-ac 2 -sameq"
endif
if $aud != ""
setvar kanal "-ac $aud -sameq"
endif
if $aub = ""
setvar bit "-ab 192 -sameq"
endif
if $aub != ""
setvar bit "-ab $aub -sameq"
endif
if $aus = ""
setvar sampling "-ar 44100 -sameq"
endif
if $aus != ""
setvar sampling "-ar $aus -sameq"
endif
if $agg = 0
or $agg = ""
setvar blur ""
endif
if $agg = 1
setvar blur "-qblur"
endif
if $vcd = 0
or $vcd = ""
setvar vcd1 ""
endif
if $vcd = 1
setvar vcd1 "-vcd"
endif
if $as = 1
setvar scale1 " -s $scale -sameq"
endif
if $ge = 0
or $ge = ""
setvar konverter "$format-i $codec-i -i $video $format-a -benchmark -4mv $blur -g 300 $kanal $sampling $bit $codec-a $scale1 $vcd1 $text"
endif
if $ge = 1
setvar konverter "$format-i $codec-i -i $video -i $audio $format-a -benchmark -4mv $blur -g 300 $kanal $sampling $bit $codec-a $scale1 $vcd1 $text"
endif
run 'ffmpeg $konverter'
setstack 4000